home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Misc / FLM / otherfiles / deutsch / ARexx / auto.rexx next >
OS/2 REXX Batch file  |  2000-01-01  |  851b  |  44 lines
  1. /* 
  2.    Script, welcher die automatische Übersetzungsmöglichkeit von
  3.    FLM demonstriert
  4.  
  5.    Dieser Script übersetzt alle Wörter, welche übergeben wurden.
  6. */
  7.  
  8. arguments=Arg() /* Anzahl der übergebenen Argumente*/
  9.  
  10. if arguments = 0 then
  11.     do
  12.         say "Bitte ein Wort übergehen !!!"
  13.         exit
  14.     end
  15.  
  16. options results
  17. address FLM
  18.  
  19. do i=1 to words(arg(1)) /* tue solange Wörter im übergebenen String */
  20.  wort = word(Arg(1),i) /* 1., 2., 3. ... Wort */
  21.  say "Suche" wort
  22.  lookword wort
  23.  found  /* gefunden ? */
  24.  if result = 0 then
  25.   do
  26.     wordanz
  27.     anz=RESULT
  28.     say anz "Wörter wurden gefunden"
  29.     do j=1 to anz
  30.         takeword j /* Übersetzungen holen */
  31.         say RESULT
  32.     end
  33.   end
  34.  else
  35.   do
  36.     say "Wort steht nicht im Wörterbuch"
  37.     takefound
  38.     say "Nächtsähnlichstes Wort ist" RESULT
  39.   end
  40.   say
  41. end
  42.  
  43. exit /* Script beenden*/
  44.